home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / ADAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.3 KB  |  17 lines
  1.  
  2. *ADD TO AR                                                                      
  3. *                                                                               
  4. ADAR  $MACRO  A,B,T                                                             
  5.       $IF  T.L=0       USE XR1 AS TEMP                                          
  6.       $ASG 'XR1' TO T.S                                                         
  7.       $ENDIF                                                                    
  8.       SAR  :A:,:T:     STORE :A:                                                
  9.       $IF  B.SA&$UNDF                                                           
  10.       LCAC :B:         LOAD CONST :B: INTO AC                                   
  11.       $ELSE                                                                     
  12.       LAC :B:,0        LOAD VAR :B: INTO AC                                     
  13.       $ENDIF                                                                    
  14.       ADD  :T:,0       ADD TEMP :T: TO AC                                       
  15.       SACL :T:,0       STORE :T:                                                
  16.       LAR  :A:,:T:     LOAD BACK INTO :A:                                       
  17.       $END